R Notebook

Packages

library(plotly)

Warning: package ‘plotly’ was built under R version 4.0.5

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Import

number_of_deaths_by_risk_factor <- number_of_deaths_by_risk_factor %>% filter(grepl('U', Code))

Error in number_of_deaths_by_risk_factor %>% filter(grepl("U", Code)) : 
  could not find function "%>%"

Clean

df2<- number_of_deaths_by_risk_factor %>%
 filter(Code %in% c("USA", "AUS")) %>%
 filter(Year >= 2000L & Year <= 
 2017L)

Viz

p <- ggplot(df2) +
 aes(x = Smoking, fill = Code) +
 geom_histogram(bins = 50L) +
 scale_fill_hue(direction = 1) +
 theme_minimal()

Interactive

ggplotly(p)